home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / KillMarked.zprx < prev    next >
Text File  |  1996-02-12  |  689b  |  31 lines
  1. /*
  2.     $VER: KillMarked.zprx 1.2 (12.2.96) by Ralph Seichter
  3.     ARexx script for Zodiac's Point
  4.  
  5.     This script adds the flags "old" and "deleted" to the currently
  6.     marked messages and jumps down to the next new message. I suggest
  7.     you to bind this script to an F-Key, e.g. by adding
  8.  
  9.         F1:SYS:Rexxc/RX ZP:Rexx/KillMarked.zprx %s
  10.  
  11.     to your "fkeys.zp" file. You cann pass an options after the
  12.     port name, i.e. "KillMarked.zprx ZPoint FORCE LATER".
  13. */
  14.  
  15. PARSE ARG zpPort opt1 opt2 opt3
  16. ADDRESS VALUE zpPort
  17. OPTIONS RESULTS
  18.  
  19. whichlevel
  20. IF (RESULT ~= 'BOARD') THEN DO
  21.     requestnotify 'You must be inside a board!'
  22.     exit
  23. END
  24.  
  25. markasold
  26. delete opt1 opt2 opt3
  27. selectmessage none
  28. jumptonew down
  29.  
  30. /* EOF */
  31.